home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.19950329-19950528 / 000021_news@columbia.edu_Sat Apr 1 17:07:23 1995.msg < prev    next >
Internet Message Format  |  1995-07-31  |  3KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA22578
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Sat, 1 Apr 1995 12:25:52 -0500
  3. Received: by apakabar.cc.columbia.edu id AA21815
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Sat, 1 Apr 1995 12:25:21 -0500
  5. Path: news.columbia.edu!panix!news.mathworks.com!news.alpha.net!uwm.edu!lll-winken.llnl.gov!enews.sgi.com!decwrl!purdue!mozo.cc.purdue.edu!nettle.ecn.purdue.edu!laird
  6. From: laird@nettle.ecn.purdue.edu (Kyler Laird)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Re: starting SLIP from Ckermit (OS/2 beta)
  9. Date: 1 Apr 1995 17:07:23 GMT
  10. Organization: Purdue University
  11. Lines: 125
  12. Message-Id: <3lk18b$dih@mozo.cc.purdue.edu>
  13. References: <3liark$asl@sunny.bahnhof.se>
  14. Nntp-Posting-Host: nettle.ecn.purdue.edu
  15. X-Newsreader: NN version 6.5.0 (NOV)
  16. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  17.  
  18. >Is anyone using this feature in the new 191 beta release yet?
  19. >I would like to se an example-script if you have one.
  20.  
  21. ------
  22.  
  23. ; PUCC_SLIP.KRM
  24. ; Use this script to SL/IP into PUCC from OS/2 Warp
  25. ;    using C-Kermit 5A(191)
  26.  
  27. ;--------------------
  28. ;variable definitions
  29. ;--------------------
  30.  
  31. ;serial port number
  32. def \%o 1
  33.  
  34. ;machine name
  35. ;def \%m coastal.ecn.purdue.edu
  36. def \%m nettle.ecn.purdue.edu
  37.  
  38. ;machine address (use "tia -address" to find out)
  39. ;def \%a 128.46.161.160
  40. def \%a 128.46.161.85
  41.  
  42. ;login
  43. def \%l laird
  44.  
  45. ;password
  46. def \%p secret
  47.  
  48. ;shell prompt
  49. def \%r %
  50.  
  51. ;---------------------------------
  52.  
  53. ;set to bogus line so that SLIP.EXE can start
  54. set line com0
  55.  
  56. ;start SLIP.EXE
  57. !start "SL/IP into PUCC" /n /min slip -com\%o -ifconfig 192.0.2.1 \%a +defaultroute -p2 -rtscts
  58.  
  59. ;wait for SL/IP connection to initialize
  60. !slipwait
  61.  
  62. ;"share" port with SLIP.EXE
  63. set line slipcom\%o
  64.  
  65. set speed 57600
  66.  
  67. ;call PUCC
  68. :DIAL
  69.  
  70. dial 496-1440
  71. if error goto DIAL
  72.  
  73. ;get initial prompt
  74. output \013
  75. input 5 username>
  76. if error goto DIAL
  77.  
  78. ;send bogus userid 'cause it doesn't matter
  79. output os2user\013
  80.  
  81. ;get annex prompt
  82. input 10 >
  83. if error goto DIAL
  84.  
  85. ;telnet to machine
  86. output telnet \%m\013
  87.  
  88. ;perform login sequence
  89. unixlogin \%l \%p \%r
  90. if error goto DIAL
  91.  
  92. ;output BREAK to get back to annex prompt
  93. output \b
  94.  
  95. ;get annex prompt
  96. input 5 >
  97. if error goto DIAL
  98.  
  99. ;get a clean connection
  100. output set session passall\013
  101.  
  102. ;get annex prompt
  103. input 5 >
  104. if error goto DIAL
  105.  
  106. ;return to telnet session
  107. output fg\013
  108.  
  109. ;get another shell prompt
  110. output \013
  111. input 5 \%r
  112. if error goto DIAL
  113.  
  114. ;turn off messages and start TIA
  115. output mesg n;tia\013
  116.  
  117. ;get TIA acknowledgement
  118. input 10 eady
  119. if error goto DIAL
  120.  
  121. ;release shared serial port by setting to bogus port
  122. set line com0
  123.  
  124. ;*Note that you could just put "quit" here.
  125. ; The SL/IP stuff is all going on in another session.
  126. ; The following is just because I usually want to run
  127. ;    telnet.
  128.  
  129. ; You could also add lines like
  130. ;!start EXPLORE.EXE
  131. ;     so that TCP/IP applications (like Web Explorer) will
  132. ;     automatically start after connection.
  133.  
  134. ;connect to machine via TCP/IP (telnet)
  135. net tcp/ip \%m
  136.  
  137. ;login to machine (again)
  138. unixlogin \%l \%p \%r
  139.  
  140. ;present terminal emulation screen
  141. connect
  142.